﻿''' <summary>
''' Laesst einen Meteor abstuerzen.
''' </summary>
''' <remarks></remarks>
Public Class AnimationMeteor
    Inherits ObjektBewegteAnimation
    Dim LiegeBleibeDauer As Integer = 20
    Dim Frame2 As Integer = 0
    Public Sub New(ByVal ZielX As Integer, ByVal ZielY As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(ZielX + 4, ZielY + 2, ZielX, ZielY, 0, "Meteor", Musikspielen, 16, ObjektSpielfeld.Bodenschlacht)
    End Sub
    Public Overrides Function Malen(ByVal IntColor As System.Drawing.Color, Optional ByVal Zoomfaktor As Single = 1, Optional ByVal Feldbreite As Integer = -1) As Boolean
        Dim FarbwertGB As Integer = 255 - Bewegungsframe * 15
        If FarbwertGB < 0 Then FarbwertGB = 0
        IntColor = Color.FromArgb(255, 255, FarbwertGB, FarbwertGB)
        If Bewegungsframe < 16 Then
            Zoomfaktor = 2 - Bewegungsframe / 16
        Else
            Zoomfaktor = 1
        End If

        If MyBase.Malen(IntColor, Zoomfaktor) = False Then
            Frame2 += 1
            P.X += 0.25#
            P.Y += 0.125#

            BackbufferSpiel.AddAnimation("SCREENFLASH", 1, New Point(), True, ObjektSpielfeld.TopLayer)
            If Frame2 <= LiegeBleibeDauer Then
                Return True
            Else
                Return False
            End If
        Else
            Return True
        End If
    End Function
End Class
